home *** CD-ROM | disk | FTP | other *** search
/ 33 Metal Production Buyers Guide 2002 / 33 Metal Production Buyers Guide 2002.iso / mac / Install / Windows / Acrobat / READER / ACRORD32.EXE / PSPROCSET / 12 < prev    next >
Text File  |  1999-11-03  |  2KB  |  93 lines
  1. %%BeginResource: pdfimg2.prc
  2. %%Version: 4.0 4
  3. %%Copyright: Copyright 1987-1993 Adobe Systems Incorporated. All Rights Reserved.
  4. PDF /PDFImage get begin
  5. Level2? StartLoad {
  6. /ID {
  7. 5 counttomark 2 idiv
  8. dup 3 1 roll add
  9. dict begin
  10. { def } repeat
  11. cleartomark
  12. currentdict
  13. end
  14. begin
  15. /ImageType here { pop } { /ImageType 1 def } ifelse
  16. /ImageMatrix [ Width 0 0 Height neg 0 Height ] def
  17. /ImageMask here { not } { true } ifelse
  18. { /ImageMask false def } if
  19. ImageMask not { ColorSpace setcolorspace } if
  20. /Intent here { ri } if
  21. SLBApplies?
  22. { ApplySLB }
  23. {
  24. mark
  25. /DataSource here { } { currentfile } ifelse
  26. /Filter here {
  27. dup type /arraytype eq { length } { pop 1 } ifelse
  28. 1 sub 0 1 3 -1 roll {
  29. /DecodeParms here {
  30. dup type /arraytype eq {
  31. 1 index get
  32. } if
  33. dup null eq { pop } { exch } ifelse
  34. } if
  35. Filter dup type /arraytype eq
  36. { exch get } { exch pop } ifelse
  37. filter
  38. dup
  39. } for
  40. } if
  41. /DataSource exch def
  42. currentdict /ImageMask here not {false} if
  43. { sfc imagemask } { image } ifelse
  44. counttomark
  45. { dup status
  46. dup currentfile ne and
  47. { dup flushfile closefile }
  48. { pop }
  49. ifelse
  50. }
  51. repeat
  52. pop
  53. }ifelse
  54. end
  55. } [/Width /Height /ImageMask /ColorSpace /Filter] bld
  56. /SLBApplies?
  57. {
  58. {
  59. languagelevel 3 lt {stop} if
  60. currentsystemparams /SourceListBypass known not {stop} if
  61. currentsystemparams /SourceListBypass get not {stop} if
  62. currentdict /Filter known not {stop} if
  63. Filter /CCITTFaxDecode ne {stop} if
  64. currentdict /DecodeParms known not {stop} if
  65. DecodeParms /K known not {stop} if
  66. DecodeParms /K get -1 ne {stop} if
  67. } stopped not
  68. } [/DecodeParms] bld
  69. /ApplySLB
  70. {
  71. {
  72. /UncompressedLength
  73. Width
  74. DecodeParms /EncodedByteAlign getifknown
  75. { { 7 add 3 bitshift } if } if
  76. Height mul def
  77. /DataSource dup here { } {currentfile} ifelse
  78. 5 dict begin
  79. /Filter Filter def
  80. /DecodeParms DecodeParms def
  81. /Intent 3 def
  82. /AsyncRead false def
  83. /CloseSource false def
  84. currentdict end /ReusableStreamDecode filter def
  85. currentdict /ImageMask here not {false} if
  86. { sfc imagemask } { image } ifelse
  87. } exec
  88. } [/Width /DecodeParms /Height] bld
  89. currentdict readonly pop
  90. } EndLoad
  91. end
  92. %%EndResource
  93.